



NT=2;CLEAR 
   1 .
   2 .
   3 .
   4 .
  10 :RETURN ;CLEAR 
  20 CY=0;PRINT "23 MATCHES
  30 PRINT "(C) 1980 R. TIETJENS
  40 GOSUB 330
  50 CLEAR 
  60 FOR M=0TO 22
  70 GOSUB 340
  80 NEXT M
  90 K=23
 100 GOSUB 250
 110 CY=16;INPUT "HOW MANY MATCHES (1►3)?"N
 120 IF (N>3)+(N<1)PRINT "VERY FUNNY!";GOSUB 370;GOTO 110
 130 GOSUB 400
 140 Z=N;GOSUB 250;N=Z
 150 IF K=0GOTO 270
 160 IF K<5IF K>1N=K-1;GOTO 200
 170 IF K<9IF K>5N=K-5;GOTO 200
 180 IF K=1N=K;GOTO 200
 190 N=4-N
 200 CY=8;PRINT "I TAKE ",#1,N,;GOSUB 380
 210 PRINT ".
 220 GOSUB 400
 230 IF K=0GOTO 290
 240 GOSUB 250;GOSUB 370;GOTO 100
 250 CY=0;PRINT #1,K,;N=K;GOSUB 380;PRINT " LEFT.
 260 RETURN 
 270 PRINT "I WIN!
 280 GOTO 300
 290 PRINT "YOU WIN!
 300 PRINT "TRY AGAIN (Y/N)?";K=KP
 310 IF K=89RUN 
 320 PRINT "GOODBYE!";STOP
 330 FOR T=0TO 2000;NEXT T;RETURN 
 340 Y=30;X=M×5-66
 350 BOX X,Y,1,15,3;BOX X,Y+7,3,3,3
 360 RETURN 
 370 CY=16;FOR Q=0TO 77;TV=32;NEXT Q;RETURN 
 380 PRINT " MATCH",;IF N#1PRINT "ES",
 390 RETURN 
 400 M=23-K;FOR M=MTO M+N-1
 410 GOSUB 340;NEXT M
 420 K=K-N;RETURN 
CLEAR 
>

CLEAR 
.     ▲▲ 23 MATCHES ▲▲

.OBJECT: AVOID TAKING      THE LAST MATCH.

.CONTROLS: KEYPAD
:RETURN ;RUN 
>